home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Picasso Interactive Demo / Data / intro.Dxr / 00025_Sc. Maitre.ls < prev    next >
Encoding:
Text File  |  1996-12-04  |  1.5 KB  |  27 lines
  1. on startMovie
  2.   global gPathBoot, gPathDelimitor
  3.   if the machineType <> 256 then
  4.     set gPathDelimitor to ":"
  5.   else
  6.     set gPathDelimitor to "\"
  7.   end if
  8.   set gPathBoot to the pathName
  9.   initCursors()
  10. end
  11.  
  12. on initCursors
  13.   global gCurseurDoigt, gCurseurPointer, gCurseurMainUp, gCurseurMainDown, gCurseurLoupeIn, gCurseurLoupeOut, gCurseurStop, gCurseurOeil, gCurseurTexte, gCurseurWait, gCurseurFlecheDroite, gCurseurFlecheGauche
  14.   set gCurseurDoigt to [the member of cast "CurseurDoigt", the member of cast "CurseurDoigtMask"]
  15.   set gCurseurPointer to [the member of cast "CurseurPointer", the member of cast "CurseurPointerMask"]
  16.   set gCurseurMainUp to [the member of cast "CurseurMainUp", the member of cast "CurseurMainUpMask"]
  17.   set gCurseurMainDown to [the member of cast "CurseurMainDown", the member of cast "CurseurMainDownMask"]
  18.   set gCurseurLoupeIn to [the member of cast "CurseurLoupeIn", the member of cast "CurseurLoupeMask"]
  19.   set gCurseurLoupeOut to [the member of cast "CurseurLoupeOut", the member of cast "CurseurLoupeMask"]
  20.   set gCurseurStop to [the member of cast "CurseurStop", the member of cast "CurseurStopMask"]
  21.   set gCurseurOeil to [the member of cast "CurseurOeil", the member of cast "CurseurOeilMask"]
  22.   set gCurseurTexte to [the member of cast "CurseurTexte", the member of cast "CurseurTexteMask"]
  23.   set gCurseurWait to [the member of cast "CurseurWait", the member of cast "CurseurWaitMask"]
  24.   set gCurseurFlecheDroite to [member "FLECH_D", member "FLECH_DMask"]
  25.   set gCurseurFlecheGauche to [member "FLECH_G", member "FLECH_GMask"]
  26. end
  27.